   1 .
   2 .
   3 .
   4 .CODE
   5 .BY RON PICARDI
  10 clear 
  15 FC=7;BC=0
  20 print 
  30 print "MORSE CODE"
  35 print 
  36 input "  SPEED?"D
  37 NT=D
  40 print 
  60 print "YOUR MESSAGE"
  65 print 
  67 print "  ON KEYBOARD,"
  68 print 
  69 print "TYPE WORDS run for CODE"
  70 print 
 100 B=0
 105 B=B+1
 110 N=KP
 115 if N=106goto 400
 120 @(B)=N
 130 TV=N
 140 goto 105
 400 BC=FC
 405 for A=1to B-1
 410 N=@(A)
 411 if N<44goto 422
 412 if N>90goto 422
 413 if N=47goto 422
 414 if N>57if N<65goto 422
 418 N=Nmul 10
 420 gosub N
 422 for C=1to 25mul D;next C
 425 clear 
 430 next A
 435 goto 1000
 440 print "Q00  Q00  Q  Q  Q00  Q00";return 
 450 print "Q00000000";return 
 460 print "Q  Q00  Q  Q00  Q  Q00";return 
 480 print "Q00  Q00  Q00  Q00  Q00";return 
 490 print "Q  Q00  Q00  Q00  Q00";return 
 500 print "Q  Q  Q00  Q00  Q00";return 
 510 print "Q  Q  Q  Q00  Q00";return 
 520 print "Q  Q  Q  Q00";return 
 530 print "Q  Q  Q  Q  Q";return 
 540 print "Q00  Q  Q  Q  Q";return 
 550 print "Q00  Q00  Q  Q  Q";return 
 560 print "Q00  Q00  Q00  Q  Q";return 
 570 print "Q00  Q00  Q00  Q00  Q";return 
 650 print "Q  Q00";return 
 660 print "Q00  Q  Q  Q";return 
 670 print "Q00  Q  Q00  Q";return 
 680 print "Q00  Q  Q";return 
 690 print "Q";return 
 700 print "Q  Q  Q00  Q";return 
 710 print "Q00  Q00  Q";return 
 720 print "Q  Q  Q  Q";return 
 730 print "Q  Q";return 
 740 print "Q  Q00  Q00  Q00";return 
 750 print "Q00  Q  Q00";return 
 760 print "Q  Q00  Q  Q";return 
 770 print "Q00  Q00";return 
 780 print "Q00  Q";return 
 790 print "Q00  Q00  Q00";return 
 800 print "Q  Q00  Q00  Q";return 
 810 print "Q00  Q00  Q  Q00";print 
 820 print "Q  Q00  Q";return 
 830 print "Q  Q  Q";return 
 840 print "Q00";return 
 850 print "Q  Q  Q00";return 
 860 print "Q  Q  Q  Q00";return 
 870 print "Q  Q00  Q00";return 
 880 print "Q00  Q  Q  Q00";return 
 890 print "Q00  Q  Q00  Q00";return 
 900 print "Q00  Q00  Q  Q";return 
1000 print "Q  Q00  Q  Q00  Q"
1005 B=B-1
1010 FC=0;BC=7;NT=0
1020 for C=1to B
1030 TV=@(C)
1050 next C
1060 print "  END OF MESSAGE"
1065 NT=3
1070 if &(22)=16goto 10
1080 if &(23)=8goto 100
1110 goto 1070
:return ;run 
